inherited fmAddNote: TfmAddNote
  Left = 617
  Top = 251
  Caption = 'fmAddNote'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited BitBtn1: TBitBtn
      Left = 235
    end
    inherited BitBtn2: TBitBtn
      Left = 323
    end
  end
  object MemoNote: TcxMemo [2]
    Left = 0
    Top = 64
    Align = alBottom
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 2
    Visible = False
    Height = 139
    Width = 405
  end
  object lcbTarget: TcxLookupComboBox [3]
    Left = 9
    Top = 66
    ParentFont = False
    Properties.KeyFieldNames = 'SDID'
    Properties.ListColumns = <
      item
        FieldName = 'SDNAME'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dlgDS
    Properties.OnCloseUp = cxLookupComboBox1PropertiesCloseUp
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 3
    Width = 248
  end
  object cxLabel1: TcxLabel [4]
    Left = 16
    Top = 48
    Caption = #1062#1077#1083#1100' '#1074#1080#1079#1080#1090#1072
  end
  inherited dlgDS: TDataSource
    DataSet = fdsSDtype
    Left = 160
    Top = 8
  end
  object fdsSDtype: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT t1.*'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = 46'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'order by 3')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 200
    Top = 8
    object fdsSDtypeSDNAME: TFIBStringField
      FieldName = 'SDNAME'
      Size = 255
      EmptyStrToNull = True
    end
    object fdsSDtypeSDID: TFIBIntegerField
      FieldName = 'SDID'
    end
    object fdsSDtypeSDPARID: TFIBIntegerField
      FieldName = 'SDPARID'
    end
    object fdsSDtypeSDISDELETE: TFIBIntegerField
      FieldName = 'SDISDELETE'
    end
  end
end
